ocr: UNIIT.PAS -OX procedure TForml.SpeedbuttonlClick Sender: TObject); begin if pendlalogl.execute then caption := opendialog..filename end; Form1 X procedure Irorml.speedbuttoncLllck (Se begin if ColomDialogl.Execute then Color := ColorDialogl.Color; end; end. 40: - 28 Insert Unit1